home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / demos / howtoskinacat / loader / htsacbootsjov2.s next >
Text File  |  1980-01-03  |  2KB  |  71 lines
  1. ùúùúÿðXÇÿðXÇÿðXÇÿðXÇÿðXÇÿðXÇÿðXÇÿðXÇÿðXÇ;-------T---------T
  2.     AUTO    ws\Boot\0\2\cc\
  3.  
  4. Boot:    DC.B    'DOS',0
  5.     DC.L    0
  6.     DC.B    'Melon Dezign! '
  7.  
  8. Begin:    movem.l    d0/d1/a0/a1/a6,-(sp)
  9.     lea    gfx(pc),a1
  10.     jsr    -408(a6)        ;OldOpenLibrary("graphics.library")
  11.     move.l    d0,a6
  12.     sub.l    a1,a1
  13.     jsr    -222(a6)        ;LoadView(NULL)
  14.     bra.b    .ahah
  15.     bra.b    Begin
  16. .ahah    movem.l    (sp)+,d0/d1/a0/a1/a6
  17.     lea    Begin(pc),a2
  18.     lea    $50000,a3
  19.     moveq    #(EOB-Begin)/4,d2
  20. .cloop    move.l    (a2)+,(a3)+
  21.     dbra    d2,.cloop
  22.     jmp    $50000+.jump-Begin
  23. .jump    lea    $DFF000,a5
  24.     move.w    $004(a5),d0
  25.     andi.w    #$2000,d0
  26.     beq.b    .nopal
  27.     move.w    #$20,$1DC(a5)
  28. .nopal    bset    #1,$BFE001        ;FILTER OFF
  29.     move.w    #2,$1c(a1)        ;Command
  30.     move.l    #$70000,$28(a1)    ;Mem-location
  31.     move.l    #512*31,$24(a1)    ;Length
  32.     move.l    #512*2,$2c(a1)    ;Offset
  33.     jsr    -456(a6)        ;DoIO
  34.     move.w    #$7FFF,$09A(a5)    ;INTENA
  35.     move.w    #$7FFF,$096(a5)    ;DMACON
  36.     lea    $70000,a0
  37.     lea    $100.w,a1
  38.     move.w    #512*31/4-1,d0
  39. .loop    move.l    (a0)+,(a1)+
  40.     dbra    d0,.loop
  41.     jmp    $100.w
  42.  
  43. gfx:    dc.b    'graphics.library',0
  44.     EVEN
  45.  
  46. EOB:
  47.     IF    (EOB-Boot)>64*3
  48.     FAIL    Boot too big!!!!
  49.     ELSE
  50.     PRINTT    "Plads til overs:"
  51.     PRINTV    64*3-(EOB-Boot)
  52.     ENDC
  53.  
  54.     blk.b    64*3-(EOB-Boot),' '
  55.  
  56.     ;0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF
  57.  dc.b    '                                                                '
  58.  dc.b    '>--------------------------------------------------------------<'
  59.  dc.b    '>                                                              <'
  60.  dc.b    '>  Melon Dezign presents:                                      <'
  61.  dc.b    '>                                                              <'
  62.  dc.b    '>    HOW TO SKIN A CAT!         Code  - Slammer                <'
  63.  dc.b    '>                               Gfx   - Solnova, Mack          <'
  64.  dc.b    '>                               Music - Nuke/Lemon.            <'
  65.  dc.b    '>                                                              <'
  66.  dc.b    '>                     Spread like hell!!!!                     <'
  67.  dc.b    '>                                                              <'
  68.  dc.b    '>--------------------------------------------------------------<'
  69.  dc.b    '                                                                '
  70.  
  71.